home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_56.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  2.8 KB  |  80 lines
  1. on exitFrame
  2.   global nappi_sprite, instold, roll_channel, to_be_roll_frame, to_be_sprite, roller, lastmtime, inst, roll_sprite_now, soho_rot_frames
  3.   LiveRollOver(103, 103, 0)
  4.   DefCurs()
  5.   if (inst <> " ") and (to_be_roll_frame <> roll_sprite_now) then
  6.     set roll_sprite_now to roll_sprite_now + roller
  7.     if roll_sprite_now = 0 then
  8.       set roll_sprite_now to 18
  9.     end if
  10.     set spr to getAt(soho_rot_frames, roll_sprite_now)
  11.     if spr = "_loop" then
  12.       set roll_sprite_now to 1
  13.       set spr to getAt(soho_rot_frames, roll_sprite_now)
  14.     end if
  15.     set the member of sprite 16 to member spr of castLib "soho_instruments"
  16.   else
  17.     if (inst <> " ") and (the visible of sprite to_be_sprite = 0) then
  18.       set the visible of sprite 14 to 1
  19.       set the visible of sprite to_be_sprite to 1
  20.       set the visible of sprite (to_be_sprite + 20) to 1
  21.       set the visible of sprite (to_be_sprite + 40) to 1
  22.       set the visible of sprite (to_be_sprite + 60) to 1
  23.     end if
  24.   end if
  25.   SohoHelpFunction(6, "sumer", 2, 212, 20)
  26.   SohoHelpFunction(7, "cds", 10, 240, 21)
  27.   SohoHelpFunction(8, "eit", 14, 270, 22)
  28.   SohoHelpFunction(9, "uvcs", 16, 301, 23)
  29.   SohoHelpFunction(10, "lasco", 1, 331, 24)
  30.   SohoHelpFunction(2, "celias", 9, 69, 26)
  31.   SohoHelpFunction(3, "costep", 6, 100, 27)
  32.   SohoHelpFunction(4, "erne", 8, 131, 28)
  33.   SohoHelpFunction(5, "swan", 16, 161, 25)
  34.   SohoHelpFunction(11, "golf", 6, 378, 29)
  35.   SohoHelpFunction(12, "virgo", 1, 408, 30)
  36.   SohoHelpFunction(13, "mdi", 5, 439, 31)
  37.   if (instold <> " ") and (inst = " ") then
  38.     set roller to 0
  39.     remove_nappi()
  40.   end if
  41.   set instold to inst
  42.   go(the frame)
  43. end
  44.  
  45. on SohoHelpFunction rover, name, frame, ycoord, tob
  46.   global to_be_roll_frame, inst, to_be_sprite, nappi_sprite
  47.   set ycoord to ycoord - 5
  48.   if rollOver(rover) then
  49.     set the locV of sprite nappi_sprite to ycoord
  50.     set the locH of sprite nappi_sprite to 459
  51.   end if
  52.   if rollOver(rover) and (inst <> name) then
  53.     set to_be_roll_frame to frame
  54.     set inst to name
  55.     set the locV of sprite nappi_sprite to ycoord
  56.     set to_be_sprite to tob
  57.     startRot()
  58.     ShowTxtS()
  59.   else
  60.     if not rollOver(rover) and (inst = name) then
  61.       HideInstrumentsJustThePic()
  62.     end if
  63.   end if
  64. end
  65.  
  66. on ShowTxtS
  67.   global inst
  68.   set hlp to inst & "_1"
  69.   if (inst = "golf") or (inst = "virgo") or (inst = "mdi") then
  70.     set the member of sprite 111 to member "txt_interior" of castLib "soho_instruments"
  71.   else
  72.     if (inst = "celias") or (inst = "costep") or (inst = "erne") or (inst = "swan") then
  73.       set the member of sprite 111 to member "txt_wind" of castLib "soho_instruments"
  74.     else
  75.       set the member of sprite 111 to member "txt_atmosphere" of castLib "soho_instruments"
  76.     end if
  77.   end if
  78.   set the member of sprite 110 to member hlp of castLib "soho_instruments"
  79. end
  80.